-- card: 3186 from stack: in.03 еее
-- bmap block id: 12517
-- flags: 0000
-- background id: 2766
-- name: 
----- HyperTalk script -----
on openCard
  global chase
  send cardOpened to background
  if chase<>0 then hortaChase
end openCard

on move
  global direction,pillarEat,trollDead,hortaDead,chase
  global blasting,causeOfDeath,blastDam,holeDam
  if chase<>0 then
    if direction<>"north" and direction<>"east" and direction<>"back" then
      put "horta4" into causeOfDeath
      visual wipe up slowly to gray
      go to card id 3409
      exit move
    end if
  end if
  if direction = "north" then
    if blastDam then
      go to card id 26754
      exit move
    end if
    if holeDam then
      go to card id 27307
      exit move
    end if
    go to card id 26200
    exit move
  end if
  if direction = "south" or direction = "rear" then
    go to card id 19858
    exit move
  end if
  if direction = "east" then
    if pillarEat then
      go card id 23127
      exit move
    end if
    go card id 22580
    exit move
  end if
  if direction = "west" then
    if trollDead then
      go to card id 24153
      exit move
    end if
    go to card id 23588
    exit move
  end if
  if direction = "down" then
    answer "Do you really want to climb into the pit?" with "yes"or"no"
    if it is "no" then exit move
    if hortaDead then
      go to card id 21738
      exit move
    else
      put "horta1" into causeOfDeath
      go to card id 3409
      exit move
    end if
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
  show card button "hortaCover"
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  answer "Drop object in this room, or into the pit?" with "pit" or "room"
  if it="pit" then put "21738" into dropRoom
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried
  -- update carried if use results in loss of object
  pass use
end use

on hortaChase
  global chase
  put "There is an angry Horta in the room!" into field 3
  hide card button hortaCover
  wait 30 ticks
  if chase=1 then show card field hortaChase
  put 2 into chase
end hortaChase




-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=87 top=231 right=267 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=136 top=89 right=125 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=7 top=164 right=200 bottom=41
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=156 top=125 right=161 bottom=190
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=125 right=161 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=125 right=161 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=66 right=162 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a tunnel leading east" into field 3
    put false into examFlag
  else
    put "east" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=43 right=91 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a tunnel leading north" into field 3
    put false into examFlag
  else
    put "north" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=3 top=66 right=150 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a stone stairway leading west (and downward)." into field 3
    put false into examFlag
  else
    put "west" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=206 right=229 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a very dark climbable pit" into field 3
    put false into examFlag
  else
    put false into takeFlag
    put "down" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=183 top=186 right=253 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "Don't take that. You don't know where its been!  " into field 3
    put "Besides, it's stuck to the floor by some strange goo" after field 3
    put "  (dissolved flesh, perhaps?)." after field 3
    put false into takeFlag
  else
    put "A skeleton.  Quite dead." into field 3
    put false into examFlag
  end if
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=41 top=122 right=176 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "Don't take that. You don't know where its been!  " into field 3
    put "Besides, it's stuck to the floor by some strange goo" after field 3
    put "  (dissolved flesh, perhaps?)." after field 3
    put false into takeFlag
  else
    put "A skeleton.  Quite dead." into field 3
    put false into examFlag
  end if
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=230 right=267 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "Don't take that. You don't know where its been!  " into field 3
    put "Besides, it's stuck to the floor by some strange goo" after field 3
    put "  (dissolved flesh, perhaps?)." after field 3
    put false into takeFlag
  else
    put "A skeleton.  Quite dead." into field 3
    put false into examFlag
  end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=85 top=199 right=225 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaCover


-- part 44 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaChase
----- HyperTalk script -----
on mouseUp
  hide card field hortaChase
end mouseUp


-- part contents for background part 25
----- text -----
Skeleton Room
(looking north)

-- part contents for background part 24
----- text -----
The bones of previous adventurers are strewn about the room.  Tunnels lead north, south, east, and west.  A dark pit is in the southwest corner of the room.  Someone has scrawled a message in blood above the pit which reads
"Beware the Horta: Don't go down!".

-- part contents for card part 44
----- text -----
Warning!

It's amazing how fast thoughts can run through your mind in a moment of deadly danger -- so you'd better read carefully, because this is one of those moments:
   When you enter the skeleton room a powerful acrid odor stings your nose and a blood-curdling hiss assaults your ears.  The source of both is a large blob-like creature near the mouth of the pit.  The creature is about six feet in diameter and has a dark mottled surface.  It turns slightly with a rapid rippling motion of its tread, then bunches up its body like a coiled spring, as if about to lunge at you.
   Perhaps it is some primal sense, but it is obvious to you that this creature is violently angry and is about to attack you.  And perhaps it is the way the rock floor sizzles under the creature's tread, but it is obvious to you that it would not be a good idea to allow it to catch you.
   I'd advise you to flee.  It depends on how fast this creature can move, of course, but you could almost certainly make it back out the east door, and possibly make it out the north door.  Your chances of reaching the west or south tunnels appear slim.

Click to continue...     and good luck!

-- part contents for background part 36
----- text -----
0